Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '');

Define WidthList
 (  12,  11,  12,  13,  11,  11,  14,  14,   8,   7,  13,  11,  17,  13,  13,  10,
    13,  12,  10,  12,  13,  12,  17,  12,  12,  11,   7,   9,   7,   9,   7,   5,
     8,   9,   4,   4,   8,   4,  14,   9,   8,   9,   9,   7,   6,   5,   9,   8,
    12,   8,   8,   7,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,  11,   6,
     4,  15,  11,   9,  14,   7,  12,   8,   5,   5,   7,   8,  11,  11,   5,   5,
     6,   5,   3,   3,   4,   8,   3,  11,   2,  11,   6,   7,   4,   6,  11,  12,
     6,  12,  12,   7,  12,  12,  12,  12,  12,  12,  17,  11,  11,  11,  11,  11,
     7,   7,   8,   7,  13,  14,  13,  12,  13,  13,  12,  13,  14,  14,  13,  14,
    12,   9,   7,   7,   8,   7,   7,   7,  11,   7,   7,   7,   7,   7,   5,   4,
     4,   5,   8,   9,   9,   8,   8,   9,   8,   8,   9,   9,  10,   9,   8,   8);

Define RectList
 ( (   0,  0, 25, 30), (  27,  0, 23, 30), (  52,  0, 23, 30), (  77,  0, 26, 30),
   ( 105,  0, 23, 30), ( 130,  0, 23, 30), ( 155,  0, 25, 30), ( 182,  0, 25, 30),
   ( 209,  0, 18, 30), ( 229,  0, 19, 30), ( 250,  0, 26, 30), ( 278,  0, 24, 30),
   ( 304,  0, 28, 30), ( 334,  0, 26, 30), ( 362,  0, 25, 30), ( 389,  0, 22, 30),
   ( 413,  0, 25, 30), ( 440,  0, 25, 30), ( 467,  0, 22, 30), ( 491,  0, 25, 30),
   ( 518,  0, 26, 30), ( 546,  0, 25, 30), ( 573,  0, 29, 30), ( 604,  0, 25, 30),
   ( 631,  0, 25, 30), ( 658,  0, 23, 30), ( 683,  0, 20, 30), ( 705,  0, 21, 30),
   ( 728,  0, 20, 30), ( 750,  0, 21, 30), ( 773,  0, 19, 30), ( 794,  0, 19, 30),
   ( 815,  0, 21, 30), ( 838,  0, 21, 30), ( 861,  0, 17, 30), ( 880,  0, 16, 30),
   ( 898,  0, 20, 30), ( 920,  0, 17, 30), ( 939,  0, 26, 30), ( 967,  0, 22, 30),
   ( 991,  0, 21, 30), (1014,  0, 22, 30), (1038,  0, 22, 30), (1062,  0, 19, 30),
   (1083,  0, 19, 30), (1104,  0, 18, 30), (1124,  0, 21, 30), (1147,  0, 21, 30),
   (1170,  0, 24, 30), (1196,  0, 21, 30), (1219,  0, 21, 30), (1242,  0, 19, 30),
   (1263,  0, 21, 30), (1286,  0, 17, 30), (1305,  0, 20, 30), (1327,  0, 20, 30),
   (1349,  0, 21, 30), (1372,  0, 20, 30), (1394,  0, 20, 30), (1416,  0, 20, 30),
   (1438,  0, 20, 30), (1460,  0, 20, 30), (1482,  0, 22, 30), (1506,  0, 15, 30),
   (1523,  0, 15, 30), (1540,  0, 27, 30), (1569,  0, 23, 30), (1594,  0, 20, 30),
   (1616,  0, 25, 30), (1643,  0, 20, 30), (1665,  0, 24, 30), (1691,  0, 19, 30),
   (1712,  0, 16, 30), (1730,  0, 17, 30), (1749,  0, 17, 30), (1768,  0, 21, 30),
   (1791,  0, 22, 30), (1815,  0, 22, 30), (1839,  0, 16, 30), (1857,  0, 17, 30),
   (1876,  0, 17, 30), (1895,  0, 18, 30), (1915,  0, 16, 30), (1933,  0, 15, 30),
   (1950,  0, 15, 30), (1967,  0, 18, 30), (1987,  0, 16, 30), (2005,  0, 22, 30),
   (2029,  0, 15, 30), (2046,  0, 22, 30), (2070,  0, 16, 30), (2088,  0, 19, 30),
   (2109,  0, 15, 30), (2126,  0, 19, 30), (2147,  0, 23, 30), (2172,  0, 24, 30),
   (2198,  0, 19, 30), (2219,  0, 25, 30), (2246,  0, 25, 30), (2273,  0, 19, 30),
   (2294,  0, 24, 30), (2320,  0, 25, 30), (2347,  0, 24, 30), (2373,  0, 25, 30),
   (2400,  0, 24, 30), (2426,  0, 24, 30), (2452,  0, 29, 30), (2483,  0, 24, 30),
   (2509,  0, 22, 30), (2533,  0, 23, 30), (2558,  0, 22, 30), (2582,  0, 23, 30),
   (2607,  0, 18, 30), (2627,  0, 18, 30), (2647,  0, 18, 30), (2667,  0, 18, 30),
   (2687,  0, 26, 30), (2715,  0, 26, 30), (2743,  0, 25, 30), (2770,  0, 25, 30),
   (2797,  0, 25, 30), (2824,  0, 25, 30), (2851,  0, 25, 30), (2878,  0, 25, 30),
   (2905,  0, 25, 30), (2932,  0, 25, 30), (2959,  0, 26, 30), (2987,  0, 25, 30),
   (3014,  0, 25, 30), (3041,  0, 21, 30), (3064,  0, 19, 30), (3085,  0, 20, 30),
   (3107,  0, 20, 30), (3129,  0, 20, 30), (3151,  0, 20, 30), (3173,  0, 19, 30),
   (3194,  0, 23, 30), (3219,  0, 20, 30), (3241,  0, 20, 30), (3263,  0, 19, 30),
   (3284,  0, 20, 30), (3306,  0, 20, 30), (3328,  0, 16, 30), (3346,  0, 17, 30),
   (3365,  0, 17, 30), (3384,  0, 18, 30), (3404,  0, 21, 30), (3427,  0, 21, 30),
   (3450,  0, 21, 30), (3473,  0, 21, 30), (3496,  0, 21, 30), (3519,  0, 21, 30),
   (3542,  0, 21, 30), (3565,  0, 21, 30), (3588,  0, 22, 30), (3612,  0, 22, 30),
   (3636,  0, 21, 30), (3659,  0, 22, 30), (3683,  0, 20, 30), (3705,  0, 21, 30));

Define OffsetList
 ( (-3, 2), (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-2, 2), (-2, 2), (-2, 2),
   (-1, 2), (-3, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-2, 2),
   (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2),
   (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2),
   (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-3, 2),
   (-3, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2),
   (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-1, 2), (-3, 2), (-2, 2),
   (-3, 2), (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-2, 2), (-2, 2), (-2, 2),
   (-2, 2), (-2, 2), (-3, 2), (-2, 2), (-2, 2), (-3, 2), (-3, 2), (-2, 2),
   (-2, 2), (-3, 2), (-2, 2), (-3, 2), (-2, 2), (-2, 2), (-2, 2), (-3, 2),
   (-2, 2), (-3, 2), (-3, 2), (-2, 2), (-2, 2), (-2, 2), (-2, 2), (-2, 2),
   (-2, 2), (-2, 2), (-2, 2), (-2, 2), (-2, 2), (-3, 2), (-2, 2), (-2, 2),
   (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2),
   (-2, 2), (-3, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2), (-2, 2), (-3, 2),
   (-2, 2), (-2, 2), (-1, 2), (-2, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2),
   (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-2, 2), (-2, 2), (-3, 2), (-2, 2),
   (-3, 2), (-3, 2), (-2, 2), (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-2, 2),
   (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2),
   (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-3, 2),
   (-3, 2), (-3, 2), (-3, 2), (-3, 2), (-2, 2), (-3, 2), (-3, 2), (-3, 2));

Define KerningPairs
 ("AC","AG","AJ","AO","AQ","AT","AU","AV","AW","AY","Av","Aw","Ay","BA","D,","D.",
  "DA","DF","DJ","DV","DW","DY","F,","F.","FA","Fa","Fe","Fi","Fo","Fr","G,","G.",
  "GY","J,","J.","JA","Ja","Je","Jo","Ju","KO","Ke","Ko","Ku","Ky","LT","LV","LW",
  "LY","Ly","N,","N.","NA","O,","O.","OA","OT","OV","OW","OX","OY","P,","P.","PA",
  "Pa","Pe","Po","Q.","RT","RU","RV","RW","RY","T,","T-","T.","T:","T;","TA","TO",
  "Ta","Te","Th","Ti","To","Tr","Tu","Tw","Ty","U,","U.","UA","V,","V-","V.","V:",
  "V;","VA","VG","VO","Va","Ve","Vi","Vo","Vu","W,","W-","W.","W:","W;","WA","WO",
  "Wa","We","Wi","Wo","Wu","Wy","XC","XO","Y,","Y-","Y.","Y:","Y;","YA","YO","YS",
  "Ya","Ye","Yi","Yo","Yu","av","aw","ay","b,","b.","bv","by","dy","f,","f.","hy",
  "iv","lw","ly","my","nv","ny","p,","p.","py","r,","r-","r.","rg","v,","v.","va",
  "ve","w,","w.","wa","we","wh","wo","xe","y,","y.","ya","yc","ye","yo","If","is", "cl","yo");

Define KerningValues

 (  -1,  -1,  -1,  -1,  -1,  -2,  -1,  -2,  -2,  -2,  -1,  -1,  -1,  -1,  -1,  -1,

    -1,  -1,  -1,  -1,  -1,  -2,  -4,  -4,  -2,  -2,  -1,  -1,  -1,  -2,  -1,  -1,

    -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -2,  -2,  -2,  -2,

    -2,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -4,  -4,  -2,

    -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -3,  -3,  -3,  -3,  -3,  -2,  -1,

    -3,  -3,  -1,  -1,  -3,  -3,  -3,  -3,  -3,  -2,  -2,  -2,  -3,  -2,  -3,  -2,

    -2,  -2,  -1,  -1,  -2,  -3,  -1,  -2,  -2,  -3,  -2,  -3,  -2,  -2,  -2,  -1,

    -2,  -2,  -1,  -2,  -2,  -2,  -1,  -1,  -3,  -3,  -3,  -2,  -2,  -2,  -1,  -1,

    -3,  -3,  -1,  -3,  -3,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,

    -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -2,  -2,  -1,

    -1,  -2,  -2,  -1,  -1,  -1,  -1,  -1,  -2,  -2,  -1,  -1,  -1,  -1, -1, 1,1,1), ;

CreateLayer               Main;
LayerSetImage             Main 'ItalianOldStyleMT13';
LayerSetAscent            Main 21;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (4);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 4;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 13;
LayerSetImageMap          Main CharList RectList;

SetDefaultPointSize  13;
